home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Presenta / EV2FREE.ZIP / EFREE3.ICZ / ICFILES.FRM < prev    next >
Text File  |  1995-06-14  |  7KB  |  261 lines
  1. VERSION 2.00
  2. Begin Form icfiles 
  3.    Caption         =   "icfiles"
  4.    ClientHeight    =   5148
  5.    ClientLeft      =   1452
  6.    ClientTop       =   1536
  7.    ClientWidth     =   4332
  8.    Height          =   5568
  9.    Left            =   1404
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Ext"
  12.    ScaleHeight     =   5148
  13.    ScaleWidth      =   4332
  14.    Top             =   1164
  15.    Width           =   4428
  16.    Begin FileListBox File1 
  17.       Enabled         =   0   'False
  18.       Height          =   984
  19.       Index           =   0
  20.       Left            =   240
  21.       TabIndex        =   7
  22.       Top             =   3120
  23.       Visible         =   0   'False
  24.       Width           =   2172
  25.    End
  26.    Begin DriveListBox Drive1 
  27.       Enabled         =   0   'False
  28.       Height          =   288
  29.       Index           =   0
  30.       Left            =   240
  31.       TabIndex        =   6
  32.       Top             =   1560
  33.       Visible         =   0   'False
  34.       Width           =   2172
  35.    End
  36.    Begin TextBox Events 
  37.       Height          =   372
  38.       Left            =   2760
  39.       TabIndex        =   3
  40.       Top             =   4440
  41.       Width           =   972
  42.    End
  43.    Begin PictureBox pic1 
  44.       Height          =   288
  45.       Left            =   960
  46.       Picture         =   ICFILES.FRX:0000
  47.       ScaleHeight     =   264
  48.       ScaleWidth      =   264
  49.       TabIndex        =   2
  50.       Top             =   4440
  51.       Width           =   288
  52.    End
  53.    Begin DirListBox Dir1 
  54.       Enabled         =   0   'False
  55.       Height          =   672
  56.       Index           =   0
  57.       Left            =   240
  58.       TabIndex        =   1
  59.       Top             =   2160
  60.       Visible         =   0   'False
  61.       Width           =   2172
  62.    End
  63.    Begin TextBox Data 
  64.       Height          =   372
  65.       Left            =   1560
  66.       TabIndex        =   0
  67.       Top             =   4440
  68.       Width           =   972
  69.    End
  70.    Begin Image Image1 
  71.       Height          =   384
  72.       Index           =   2
  73.       Left            =   2640
  74.       Picture         =   ICFILES.FRX:0302
  75.       Top             =   3120
  76.       Width           =   384
  77.    End
  78.    Begin Image Image1 
  79.       Height          =   384
  80.       Index           =   1
  81.       Left            =   2640
  82.       Picture         =   ICFILES.FRX:0604
  83.       Top             =   2160
  84.       Width           =   384
  85.    End
  86.    Begin Image Image1 
  87.       Height          =   384
  88.       Index           =   0
  89.       Left            =   2640
  90.       Picture         =   ICFILES.FRX:0906
  91.       Top             =   1440
  92.       Width           =   384
  93.    End
  94.    Begin Label Label2 
  95.       BorderStyle     =   1  'Fixed Single
  96.       Caption         =   "Label2"
  97.       Height          =   372
  98.       Left            =   0
  99.       TabIndex        =   5
  100.       Top             =   720
  101.       Width           =   3492
  102.    End
  103.    Begin Label Label1 
  104.       BorderStyle     =   1  'Fixed Single
  105.       Caption         =   "Label1"
  106.       Height          =   372
  107.       Left            =   0
  108.       TabIndex        =   4
  109.       Top             =   120
  110.       Width           =   3492
  111.    End
  112. End
  113. Declare Function SetParent% Lib "User" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer)
  114.  
  115. Sub Dir1_Change (Index As Integer)
  116.   Call sendevent("He", 1, Index, xtra$)
  117.  
  118. End Sub
  119.  
  120. Sub Dir1_Click (Index As Integer)
  121.   Call sendevent("Ce", 1, Index, xtra$)
  122.  
  123. End Sub
  124.  
  125. Sub Dir1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
  126.   xtra$ = CStr(X) + "," + CStr(Y)
  127.   Call sendevent("Dd", 1, Index, xtra$)
  128.  
  129. End Sub
  130.  
  131. Sub Dir1_GotFocus (Index As Integer)
  132.   Call sendevent("Gf", 1, Index, xtra$)
  133.  
  134. End Sub
  135.  
  136. Sub Dir1_LostFocus (Index As Integer)
  137.   Call sendevent("Lf", 1, Index, xtra$)
  138.  
  139. End Sub
  140.  
  141. Sub Dir1_MouseDown (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  142.   xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  143.   Call sendevent("Md", 1, Index, xtra$)
  144.  
  145. End Sub
  146.  
  147. Sub Dir1_MouseMove (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  148. Static previous$
  149.   If button <> 0 Or InStr(oats$(1), "Me") <> 0 Then
  150.     xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  151.     If xtra$ <> previous$ Then
  152.       Call sendevent("Mm", 1, Index, xtra$)
  153.       previous$ = xtra$
  154.     End If
  155.   End If
  156.  
  157. End Sub
  158.  
  159. Sub Dir1_MouseUp (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  160.   xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  161.   Call sendevent("Mu", 1, Index, xtra$)
  162.  
  163. End Sub
  164.  
  165. Sub Drive1_Change (Index As Integer)
  166.   Call sendevent("He", 0, Index, xtra$)
  167.  
  168. End Sub
  169.  
  170. Sub Drive1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
  171.   xtra$ = CStr(X) + "," + CStr(Y)
  172.   Call sendevent("Dd", 0, Index, xtra$)
  173.  
  174. End Sub
  175.  
  176. Sub Drive1_GotFocus (Index As Integer)
  177.   Call sendevent("Gf", 0, Index, xtra$)
  178.  
  179. End Sub
  180.  
  181. Sub Drive1_LostFocus (Index As Integer)
  182.   Call sendevent("Lf", 0, Index, xtra$)
  183.  
  184. End Sub
  185.  
  186. Sub File1_Click (Index As Integer)
  187.   Call sendevent("Ce", 2, Index, xtra$)
  188.  
  189. End Sub
  190.  
  191. Sub File1_DblClick (Index As Integer)
  192.   Call sendevent("Dc", 2, Index, xtra$)
  193.  
  194. End Sub
  195.  
  196. Sub File1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
  197.   xtra$ = CStr(X) + "," + CStr(Y)
  198.   Call sendevent("Dd", 2, Index, xtra$)
  199.  
  200. End Sub
  201.  
  202. Sub File1_GotFocus (Index As Integer)
  203.   Call sendevent("Gf", 2, Index, xtra$)
  204.  
  205. End Sub
  206.  
  207. Sub File1_LostFocus (Index As Integer)
  208.   Call sendevent("Lf", 2, Index, xtra$)
  209.  
  210. End Sub
  211.  
  212. Sub File1_MouseDown (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  213.   xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  214.   Call sendevent("Md", 2, Index, xtra$)
  215.  
  216. End Sub
  217.  
  218. Sub File1_MouseMove (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  219. Static previous$
  220.   If button <> 0 Or InStr(oats$(2), "Me") <> 0 Then
  221.     xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  222.     If xtra$ <> previous$ Then
  223.       Call sendevent("Mm", 2, Index, xtra$)
  224.       previous$ = xtra$
  225.     End If
  226.   End If
  227.  
  228. End Sub
  229.  
  230. Sub File1_MouseUp (Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)
  231.   xtra$ = Chr$(button + 8) + Chr$(shift + 8) + Chr$(1) + CStr(X) + "," + CStr(Y)
  232.   Call sendevent("Mu", 2, Index, xtra$)
  233.  
  234. End Sub
  235.  
  236. Sub Form_Activate ()
  237.   Me.Visible = 0
  238. End Sub
  239.  
  240. Sub Form_LinkExecute (cmdstr As String, cancel As Integer)
  241.   em$ = cmdstr
  242.   Call extmgrx(1, em$)
  243.   cancel = 0
  244. End Sub
  245.  
  246. Sub Form_Load ()
  247.   If App.PrevInstance Then End
  248.  
  249.   t242.chr242 = Chr$(242)
  250.   tcvi.chr242 = Chr$(242)
  251.   t243.chr243 = Chr$(243)
  252.   t244.chr244 = Chr$(244)
  253.   t245.chr245 = Chr$(245)
  254.   t246.chr246 = Chr$(246)
  255.  
  256.   ReDim tags(39, 0)
  257.   Me.Visible = 0
  258.   Call init
  259. End Sub
  260.  
  261.